home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 8: LINUX Games / Linux Cubed Series 8 - LINUX Games.iso / games / muds / lpmud312.tar / lpmud312 / hash.c < prev    next >
Text File  |  1991-10-31  |  2KB  |  45 lines
  1. /*
  2. ** A simple and fast generic string hasher based on Peter K. Pearson's
  3. ** article in CACM 33-6, pp. 677.
  4. */
  5.  
  6. int
  7. hashstr(s, maxn, hashs)
  8. char *s;            /* string to hash */
  9. int maxn;            /* maximum number of chars to consider */
  10. int hashs;            /* hash table size. */
  11. {
  12.     register int h;
  13.     register unsigned char *p;
  14.     register int i;
  15.     static int T[] = {
  16.     1, 87, 49, 12, 176, 178, 102, 166, 121, 193, 6, 84, 249, 230, 44, 163,
  17.     14, 197, 213, 181, 161, 85, 218, 80, 64, 239, 24, 226, 236, 142, 38, 200,
  18.     110, 177, 104, 103, 141, 253, 255, 50, 77, 101, 81, 18, 45, 96, 31, 222,
  19.     25, 107, 190, 70, 86, 237, 240, 34, 72, 242, 20, 214, 244, 227, 149, 235,
  20.     97, 234, 57, 22, 60, 250, 82, 175, 208, 5, 127, 199, 111, 62, 135, 248,
  21.     174, 169, 211, 58, 66, 154, 106, 195, 245, 171, 17, 187, 182, 179, 0, 243,
  22.     132, 56, 148, 75, 128, 133, 158, 100, 130, 126, 91, 13, 153, 246, 216, 219,
  23.     119, 68, 223, 78, 83, 88, 201, 99, 122, 11, 92, 32, 136, 114, 52, 10,
  24.     138, 30, 48, 183, 156, 35, 61, 26, 143, 74, 251, 94, 129, 162, 63, 152,
  25.     170, 7, 115, 167, 241, 206, 3, 150, 55, 59, 151, 220, 90, 53, 23, 131, 
  26.     125, 173, 15, 238, 79, 95, 89, 16, 105, 137, 225, 224, 217, 160, 37, 123,
  27.     118, 73, 2, 157, 46, 116, 9, 145, 134, 228, 207, 212, 202, 215, 69, 229,
  28.     27, 188, 67, 124, 168, 252, 42, 4, 29, 108, 21, 247, 19, 205, 39, 203,
  29.     233, 40, 186, 147, 198, 192, 155, 33, 164, 191, 98, 204, 165, 180, 117, 76,
  30.     140, 36, 210, 172, 41, 54, 159, 8, 185, 232, 113, 196, 231, 47, 146, 120,
  31.     51, 65, 28, 144, 254, 221, 93, 189, 194, 139, 112, 43, 71, 109, 184, 209,
  32.     };
  33.  
  34.  
  35.     for(h = 0, i = 0, p = (unsigned char *)s; *p && i < maxn; i++, p++)
  36.     h = T[h ^ *p];
  37.     if (hashs > 256 && *s) {
  38.     int oh = h;
  39.     for(i = 1, p = (unsigned char *)s, h = (*p++ + 1)&0xff; *p && i < maxn; i++, p++)
  40.         h = T[h ^ *p];
  41.     h += (oh << 8);
  42.     }
  43.     return h % hashs;        /* With 16 bit ints h has to be made positive first! */
  44. }
  45.